home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 1 / 64er_Magazin_Sonderheft_01_86-01_19xx_Markt__Technik_de.d64 / grafik 64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  353 b   |  16 lines
  1. 10 poke53272,peek(53272)or8:poke646,0
  2. 20 poke53265,peek(53265)or32
  3. 30 fork=0to999:poke1024+k,14:next
  4. 40 fork=0to4999:poke8192+k,0:next
  5. 50 fork=0to2^(NULL)+.05step0.01
  6. 60 x=150+10-150*cos(3*k)
  7. 70 y=100-150*0.5*sin(3*k)
  8. 80 forn=0to24
  9. 90 ify>n*8-1andy<(n+1)*8thenby=8192+n*320+8*int(x/8)+y-8*n:n=24:goto110
  10. 100 nextn
  11. 110 bi=8*(1+int(x/8))-x-1
  12. 120 by=int(by+.5)
  13. 130 pokeby,peek(by)or2^int(bi+0.5)
  14. 140 next:next
  15. 150 geta$:ifa$=""then140
  16.